home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / utils / exec33a.arj / CHECKPAT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-21  |  2KB  |  70 lines
  1. Unit checkpat;
  2. {
  3.    --- Version 3.3 91-11-21 16:12 ---
  4.  
  5.    CHECKPAT.PAS: Wrapper unit for path check function.
  6.  
  7.    Needs Assembler file 'checkpat.asm' (assembled as 'checkpap.obj').
  8.  
  9. Public domain software by
  10.  
  11.         Thomas Wagner
  12.         Ferrari electronic GmbH
  13.         Beusselstrasse 27
  14.         D-1000 Berlin 21
  15.         Germany
  16.  
  17.         BIXname: twagner
  18. }
  19.  
  20. Interface
  21.  
  22. const
  23.  
  24. INF_NODIR       =  1;  { Don't interpret name as directory }
  25.  
  26. {e Error Return codes }
  27. {d Fehlercodes }
  28.  
  29. ERR_DRIVE       = -1;  { Invalid drive }
  30. ERR_PATH        = -2;  { Invalid path }
  31. ERR_FNAME       = -3;  { Malformed filename }
  32. ERR_DRIVECHAR   = -4;  { Illegal drive letter }
  33. ERR_PATHLEN     = -5;  { Path too long }
  34. ERR_CRITICAL    = -6;  { Critical error (invalid drive) }
  35.  
  36. {e Good returns (values ORed): }
  37. {d Rückgabewerte wenn kein Fehler auftrat: }
  38.  
  39. HAS_WILD     =     1;  { Filename/ext has wildcard characters }
  40. HAS_EXT      =     2;  { Extension specified }
  41. HAS_FNAME    =     4;  { Filename specified }
  42. HAS_PATH     =     8;  { Path specified }
  43. HAS_DRIVE    =   $10;  { Drive specified }
  44. FILE_EXISTS  =   $20;  { File exists, upper byte has attributes }
  45. IS_DIR       = $1000;  { Directory, upper byte has attributes }
  46.  
  47.  
  48. { The file attributes returned if FILE_EXISTS or IS_DIR is set }
  49.  
  50. IS_READ_ONLY = $0100;
  51. IS_HIDDEN    = $0200;
  52. IS_SYSTEM    = $0400;
  53. IS_ARCHIVED  = $2000;
  54. IS_DEVICE    = $4000;
  55.  
  56.  
  57. function checkpath (var name; inflags: integer; var drive; var dir; 
  58.                     var fname; var ext; var fullpath) : integer;
  59.  
  60. function exists (var fname): boolean;
  61.  
  62. Implementation
  63.  
  64. {$L checkpap}
  65. function checkpath (var name; inflags: integer; var drive; var dir; 
  66.                     var fname; var ext; var fullpath) : integer; external;
  67. function exists (var fname): boolean; external;
  68.  
  69. end.
  70.